Chip 2004 December/2004-12 CHIP.iso/Internet/The Bat! Professional 3.01/thebat_professional.msi/Data1.cab/thebat.exe/0/RCDATA/TTEMPLATEEDITOR/TTEMPLATEEDITOR.txt

Text File | 2004-10-12 | 6KB | 295 lines

object TemplateEditor: TTemplateEditor
  Left = 300
  Top = 122
  Width = 471
  Height = 438
  HelpContext = 14066
  BorderIcons = [biSystemMenu]
  Caption = 'Edit template'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = True
  Position = poScreenCenter
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object BottomPanel: TPanel
    Left = 0
    Top = 363
    Width = 463
    Height = 41
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 1
    object ButtonsPanel: TPanel
      Left = 220
      Top = 0
      Width = 243
      Height = 41
      Align = alRight
      BevelOuter = bvNone
      TabOrder = 1
      object b_OK: TButton
        Left = 0
        Top = 8
        Width = 73
        Height = 25
        Caption = '&OK'
        Default = True
        ModalResult = 1
        TabOrder = 0
      end
      object bCancel: TButton
        Left = 80
        Top = 8
        Width = 73
        Height = 25
        Cancel = True
        Caption = 'Cancel'
        ModalResult = 2
        TabOrder = 1
      end
      object bHelp: TButton
        Left = 160
        Top = 8
        Width = 73
        Height = 25
        Caption = 'Help'
        TabOrder = 2
        OnClick = bHelpClick
      end
    end
    object bMacros: TButton
      Left = 8
      Top = 8
      Width = 81
      Height = 25
      Caption = 'Macros'
      TabOrder = 0
      OnClick = bMacrosClick
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 0
    Width = 463
    Height = 363
    Align = alClient
    BevelOuter = bvLowered
    BorderWidth = 1
    TabOrder = 0
    object pnHead: TPanel
      Left = 2
      Top = 2
      Width = 459
      Height = 90
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 0
      Visible = False
      object Label1: TLabel
        Left = 16
        Top = 8
        Width = 37
        Height = 13
        Caption = '&Handle:'
        FocusControl = eHandle
      end
      object Label2: TLabel
        Left = 16
        Top = 36
        Width = 56
        Height = 13
        Caption = '&Description:'
        FocusControl = eName
      end
      object Label3: TLabel
        Left = 16
        Top = 68
        Width = 47
        Height = 13
        Caption = '&Template:'
        FocusControl = eMsg
      end
      object eHandle: TEdit
        Left = 112
        Top = 4
        Width = 345
        Height = 21
        TabOrder = 0
      end
      object eName: TEdit
        Left = 112
        Top = 32
        Width = 345
        Height = 21
        TabOrder = 1
      end
      object cbShare: TCheckBox
        Left = 112
        Top = 56
        Width = 325
        Height = 17
        Caption = '&Share with other accounts'
        TabOrder = 2
      end
      object cbNew: TCheckBox
        Left = 112
        Top = 72
        Width = 321
        Height = 17
        Caption = 'Use for &New messages/Mass mailing'
        TabOrder = 3
      end
      object cbReply: TCheckBox
        Left = 112
        Top = 88
        Width = 321
        Height = 17
        Caption = 'Use for &Reply messages'
        Enabled = False
        TabOrder = 4
      end
      object cbForward: TCheckBox
        Left = 112
        Top = 104
        Width = 321
        Height = 17
        Caption = 'Use for &Forward messages'
        Enabled = False
        TabOrder = 5
      end
    end
    object pnMsg: TPanel
      Left = 2
      Top = 92
      Width = 459
      Height = 269
      Align = alClient
      BevelOuter = bvLowered
      TabOrder = 1
      object eMsg: TTextEditor
        Left = 1
        Top = 1
        Width = 457
        Height = 267
        BgColor = clBlack
        TextColor = clBlack
        SelColor = clBlack
        SelBgColor = clBlack
        QuoteColor = clBlack
        RefColor = clBlack
        Kludge1Color = clBlack
        Kludge2Color = clBlack
        Kludge3Color = clBlack
        ReadOnly = False
        FontCharset = 1
        TabOrder = 0
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -13
        Font.Name = 'Courier New'
        Font.Pitch = fpFixed
        Font.Style = []
        Align = alClient
        OnMouseMove = eMsgMouseMove
        PopupMenu = mPop
        OnDblClick = eMsgDblClick
      end
    end
  end
  object mPop: TPopupMenu
    Left = 144
    Top = 264
    object mmText: TMenuItem
      Caption = '&Text'
    end
    object mmSender: TMenuItem
      Caption = '&Sender info'
    end
    object mmRece: TMenuItem
      Caption = '&Recipient info'
    end
    object mmDef: TMenuItem
      Caption = '&Pre-defined fields'
    end
    object mmMisc: TMenuItem
      Caption = '&Miscellaneous'
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object mtAttachFile: TMenuItem
      Caption = '&Attach a file...'
      ShortCut = 32801
      OnClick = mtAttachFileClick
    end
    object mtInclude: TMenuItem
      Tag = 1
      Caption = '&Include template file...'
      ShortCut = 32813
      OnClick = mtAttachFileClick
    end
    object mtPut: TMenuItem
      Tag = 2
      Caption = 'Put text file...'
      OnClick = mtAttachFileClick
    end
    object mtfCookie: TMenuItem
      Tag = 3
      Caption = '&Cookie from a file...'
      OnClick = mtAttachFileClick
    end
    object Popup1: TMenuItem
      Caption = 'Popup'
      ShortCut = 32889
      Visible = False
    end
    object muAutoFormat: TMenuItem
      Caption = 'A&uto-Format'
      ShortCut = 24646
      Visible = False
      OnClick = muAutoFormatClick
    end
    object muAutoWrap: TMenuItem
      Caption = 'Auto-&Wrap '
      ShortCut = 24663
      Visible = False
      OnClick = muAutoWrapClick
    end
    object muWrapJustify: TMenuItem
      Caption = '&Justify on autowrap'
      ShortCut = 24650
      Visible = False
      OnClick = muWrapJustifyClick
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object mmCut: TMenuItem
      Caption = 'Cut'
      ShortCut = 16472
      OnClick = mmCutClick
    end
    object mmCopy: TMenuItem
      Caption = 'Copy'
      ShortCut = 16451
      OnClick = mmCopyClick
    end
    object mmPaste: TMenuItem
      Caption = 'Paste'
      ShortCut = 16470
      OnClick = mmPasteClick
    end
  end
end